home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / FORTRAN Goodies / FORTRAN Macros for EXCEL / Source Code / DataF.f < prev    next >
Encoding:
Text File  |  1992-01-31  |  863 b   |  42 lines  |  [TEXT/MPS ]
  1. !!MP Inlines.f
  2.  
  3. C        An example of a FORTRAN Resource for Microsoft Excel 3.0
  4. C    This example call illustrates returning string buffer data, 
  5. C    zero terminated strings - Data Type F. Testing for this example
  6. C    was done with Language Systems FORTRAN version 3.0
  7. C    
  8. C    Below are the commands that were executed to create the 
  9. C    code resource
  10.  
  11. !!IFC FALSE
  12.  FORTRAN DATAF.f -opt=1 -noimplicit
  13. Link -w -f -srt -ad 4 -t '????' -c '????' ∂
  14. -m DATAF -sn Main=DATAF ∂
  15. -sn f_RunTime=DATAF ∂
  16. -sn f_Intrinsics=DATAF ∂
  17.     DATAF.f.o ∂
  18.     "{FLibraries}"OutpwStubs.o ∂
  19.     "{Libraries}"Runtime.o ∂
  20.     "{Libraries}"Interface.o ∂
  21.     "{FLibraries}"FORTRANlib.o ∂
  22.     "{FLibraries}"IntrinsicLib.o ∂
  23.     "{FLibraries}"FSANELib.o ∂
  24.     -o DATAF.rsc
  25.  
  26. !!ENDC
  27.  
  28. C    Source code
  29.  
  30.     integer*4 function DATAF(%val(a))
  31.     
  32.     pointer /character*256/ a
  33.  
  34.     a^ = 'Greetings'
  35.     a^(10:10) = char(0)
  36.     DATAF = a
  37.     
  38.     return
  39.     end
  40.     
  41.         
  42.